home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
vbasic
/
loanapp.exe
/
LOANF1.FRM
< prev
next >
Wrap
Text File
|
1993-07-22
|
38KB
|
1,173 lines
VERSION 2.00
Begin Form Form1
BackColor = &H00FF0000&
BorderStyle = 1 'Fixed Single
Caption = "Uniform Residential Loan Application"
ClientHeight = 5865
ClientLeft = 15
ClientTop = 1920
ClientWidth = 9570
ForeColor = &H00000000&
Height = 6555
Left = -45
LinkMode = 1 'Source
LinkTopic = "Form1"
ScaleHeight = 391
ScaleMode = 3 'Pixel
ScaleWidth = 638
Top = 1290
Width = 9690
Begin PictureBox Picture1
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 2430
Left = 90
Picture = LOANF1.FRX:0000
ScaleHeight = 2400
ScaleWidth = 9375
TabIndex = 0
Top = 480
Visible = 0 'False
Width = 9405
Begin Label LabelA
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 7
Left = 3825
TabIndex = 13
Top = 2190
Width = 5520
End
Begin Label LabelA
Alignment = 2 'Center
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 6
Left = 2670
TabIndex = 12
Top = 2175
Width = 1035
End
Begin Label LabelA
Alignment = 1 'Right Justify
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 5
Left = 1560
TabIndex = 11
Top = 2175
Width = 855
End
Begin Label LabelA
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 4
Left = 195
TabIndex = 10
Top = 2190
Width = 1275
End
Begin Label LabelA
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 3
Left = 7605
TabIndex = 9
Top = 1635
Width = 1725
End
Begin Label LabelA
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 2
Left = 5805
TabIndex = 8
Top = 1635
Width = 1695
End
Begin Label LabelA
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 1
Left = 900
TabIndex = 7
Top = 1605
Width = 4815
End
End
Begin PictureBox Picture3
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
ForeColor = &H00000000&
Height = 4530
Left = 75
Picture = LOANF1.FRX:3242
ScaleHeight = 4500
ScaleWidth = 9375
TabIndex = 2
Top = 480
Visible = 0 'False
Width = 9405
Begin VHedit HEdit2
DelayRecog = -1 'True
Height = 765
InflateBottom = 270
InflateLeft = 270
InflateRight = 270
InflateTop = 270
Left = 4740
TabIndex = 57
Top = 3690
Version = 268435458
Width = 3345
End
Begin VHedit HEdit1
DelayRecog = -1 'True
Height = 765
InflateBottom = 270
InflateLeft = 270
InflateRight = 270
InflateTop = 270
Left = 75
TabIndex = 56
Top = 3690
Version = 268435458
Width = 3345
End
Begin Label LabelH
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 7
Left = 6750
TabIndex = 45
Top = 1875
Width = 2595
End
Begin Label Label4
BorderStyle = 1 'Fixed Single
Caption = " Erase Signature"
Height = 435
Index = 1
Left = 8220
TabIndex = 55
Top = 4020
Width = 1095
End
Begin Label Label4
BorderStyle = 1 'Fixed Single
Caption = " Erase Signature"
Height = 435
Index = 0
Left = 3540
TabIndex = 54
Top = 4020
Width = 1095
End
Begin Label Label3
Alignment = 2 'Center
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 2
Left = 8205
TabIndex = 49
Top = 3690
Width = 1125
End
Begin Label Label3
Alignment = 2 'Center
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 1
Left = 3540
TabIndex = 48
Top = 3720
Width = 1095
End
Begin Label LabelJ
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 600
Index = 1
Left = 4740
TabIndex = 47
Top = 2535
Width = 4575
End
Begin Label LabelI
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 600
Index = 1
Left = 45
TabIndex = 46
Top = 2520
Width = 4590
End
Begin Label LabelJ
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 2
Left = 8820
TabIndex = 51
Top = 2160
Width = 495
End
Begin Label LabelI
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 2
Left = 4140
TabIndex = 50
Top = 2160
Width = 495
End
Begin Label LabelH
Alignment = 2 'Center
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 6
Left = 6210
TabIndex = 44
Top = 1875
Width = 435
End
Begin Label LabelG
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 7
Left = 2055
TabIndex = 43
Top = 1860
Width = 2565
End
Begin Label LabelG
Alignment = 2 'Center
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 6
Left = 1515
TabIndex = 42
Top = 1875
Width = 435
End
Begin Label LabelH
Alignment = 2 'Center
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 240
Index = 8
Left = 4740
TabIndex = 61
Top = 1695
Width = 1395
End
Begin Label LabelG
Alignment = 2 'Center
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 240
Index = 8
Left = 45
TabIndex = 60
Top = 1680
Width = 1395
End
Begin Label Label2
Caption = "Marital Status"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 1
Left = 4740
TabIndex = 62
Top = 1380
Width = 1395
End
Begin Label Label2
Caption = "Marital Status"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 0
Left = 45
TabIndex = 59
Top = 1365
Width = 1395
End
Begin Label LabelH
Alignment = 2 'Center
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 5
Left = 8370
TabIndex = 41
Top = 1080
Width = 975
End
Begin Label LabelH
Alignment = 2 'Center
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 4
Left = 7950
TabIndex = 40
Top = 1080
Width = 315
End
Begin Label LabelH
Alignment = 2 'Center
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 3
Left = 6060
TabIndex = 39
Top = 1080
Width = 1785
End
Begin Label LabelH
Alignment = 2 'Center
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 2
Left = 4740
TabIndex = 38
Top = 1080
Width = 1215
End
Begin Label LabelG
Alignment = 2 'Center
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 5
Left = 3690
TabIndex = 37
Top = 1080
Width = 945
End
Begin Label LabelG
Alignment = 2 'Center
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 4
Left = 3270
TabIndex = 36
Top = 1080
Width = 315
End
Begin Label LabelG
Alignment = 2 'Center
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 3
Left = 1380
TabIndex = 35
Top = 1080
Width = 1785
End
Begin Label LabelG
Alignment = 2 'Center
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 2
Left = 30
TabIndex = 34
Top = 1080
Width = 1245
End
Begin Label LabelH
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 1
Left = 4725
TabIndex = 33
Top = 540
Width = 4605
End
Begin Label LabelG
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 1
Left = 30
TabIndex = 32
Top = 555
Width = 4605
End
End
Begin PictureBox Picture2
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 4530
Left = 75
Picture = LOANF1.FRX:9044
ScaleHeight = 4500
ScaleWidth = 9375
TabIndex = 1
Top = 480
Visible = 0 'False
Width = 9405
Begin CheckBox Check1
Caption = "Leasehold"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 2
Left = 7980
TabIndex = 31
Top = 4140
Width = 1095
End
Begin CheckBox Check1
Caption = "Fee Simple"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 1
Left = 7980
TabIndex = 30
Top = 3810
Width = 1185
End
Begin Label LabelF
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 3
Left = 30
TabIndex = 29
Top = 4260
Width = 7695
End
Begin Label LabelF
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 2
Left = 5295
TabIndex = 28
Top = 3720
Width = 2415
End
Begin Label LabelF
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 1
Left = 45
TabIndex = 27
Top = 3720
Width = 5175
End
Begin Label LabelE
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 5
Left = 6765
TabIndex = 26
Top = 3225
Width = 2565
End
Begin Label LabelE
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 4
Left = 4530
TabIndex = 25
Top = 3225
Width = 1605
End
Begin Label LabelE
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 3
Left = 3000
TabIndex = 24
Top = 3225
Width = 1455
End
Begin Label LabelE
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 2
Left = 1260
TabIndex = 23
Top = 3195
Width = 1455
End
Begin Label LabelE
Alignment = 2 'Center
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 1
Left = 15
TabIndex = 22
Top = 3210
Width = 1035
End
Begin Label LabelE
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 180
Index = 17
Left = 7260
TabIndex = 58
Top = 2940
Width = 1515
End
Begin Label LabelD
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 6
Left = 7950
TabIndex = 21
Top = 2430
Width = 1395
End
Begin Label LabelD
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 5
Left = 6240
TabIndex = 20
Top = 2430
Width = 1485
End
Begin Label LabelD
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 4
Left = 4575
TabIndex = 19
Top = 2430
Width = 1425
End
Begin Label LabelD
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 3
Left = 2940
TabIndex = 18
Top = 2430
Width = 1425
End
Begin Label LabelD
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 2
Left = 1290
TabIndex = 17
Top = 2430
Width = 1425
End
Begin Label LabelD
Alignment = 2 'Center
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 1
Left = 30
TabIndex = 53
Top = 2415
Width = 1035
End
Begin Label LabelC
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 5
Left = 6435
TabIndex = 63
Top = 1605
Width = 2895
End
Begin Label LabelC
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 2
Left = 30
TabIndex = 52
Top = 1605
Width = 6315
End
Begin Label LabelC
Alignment = 2 'Center
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 4
Left = 8010
TabIndex = 16
Top = 1080
Width = 1335
End
Begin Label LabelC
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 1
Left = 30
TabIndex = 15
Top = 1080
Width = 7875
End
Begin Label LabelC
Alignment = 2 'Center
Caption = " "
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 3
Left = 8010
TabIndex = 14
Top = 555
Width = 1335
End
Begin Label LabelB
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Left = 45
TabIndex = 64
Top = 540
Width = 7875
End
End
Begin CommandButton Command4
Caption = "Clear All"
Height = 255
Left = 7320
TabIndex = 6
Top = 120
Width = 1335
End
Begin CommandButton Command3
Caption = "Clear Page"
Height = 255
Left = 5160
TabIndex = 5
Top = 120
Width = 1335
End
Begin CommandButton Command2
Caption = "Next >"
Height = 255
Left = 3000
TabIndex = 4
Top = 120
Width = 1335
End
Begin CommandButton Command1
Caption = "< Previous"
Enabled = 0 'False
Height = 255
Left = 840
TabIndex = 3
Top = 120
Width = 1335
End
Begin Menu MFile
Caption = "File"
Begin Menu MSave
Caption = "&Save"
End
Begin Menu MLoad
Caption = "&Load"
End
Begin Menu MPrint
Caption = "&Print"
End
Begin Menu MExit
Caption = "&Exit"
End
End
End
Sub Check1_Click (Index As Integer)
If (Form1.Visible = True) And (Form7.Visible = False) Then
If Form1.Check1(Index).Value = 1 Then
MainRec.F.FC1 = Index
For i = 1 To 2
If i <> Index Then
Form1.Check1(i).Value = 0
End If
Next i
End If
End If
If (Form1.Check1(1).Value = 0) And (Form1.Check1(2).Value = 0) Then
MainRec.F.FC1 = 0
End If
End Sub
Sub Command1_Click ()
If Picture2.Visible = True Then
Picture2.Visible = False
Picture1.Visible = True
Command1.Enabled = False
ElseIf Picture3.Visible = True Then
Picture3.Visible = False
Picture2.Visible = True
Command2.Enabled = True
End If
End Sub
Sub Command2_Click ()
If Picture1.Visible = True Then
Picture1.Visible = False
Picture2.Visible = True
Command1.Enabled = True
ElseIf Picture2.Visible = True Then
Picture2.Visible = False
Picture3.Visible = True
Command2.Enabled = False
End If
End Sub
Sub Command3_Click ()
If Picture1.Visible = True Then
ClearPict1
ElseIf Picture2.Visible = True Then
ClearPict2
Else
ClearPict3
End If
End Sub
Sub Command4_Click ()
ClearPict1
ClearPict2
ClearPict3
End Sub
Sub Form_Load ()
MSP = Screen.MousePointer
Screen.MousePointer = 11
Form2.Show
Form1.WindowState = 2
Picture1.Visible = True
Unload Form2
Screen.MousePointer = MSP
End Sub
Sub Form_Unload (Cancel As Integer)
Call MExit_Click
End Sub
Sub Label3_Click (Index As Integer)
UpdateDate (Index)
End Sub
Sub Label3_DblClick (Index As Integer)
UpdateNewDate (Index)
End Sub
Sub Label4_DblClick (Index As Integer)
If Index = 0 Then
HEdit1.EraseInk = True
Else
HEdit2.EraseInk = True
End If
End Sub
Sub LabelA_DblClick (Index As Integer)
Load Form3
Call UpdateFormA
Form3.Show 1
End Sub
Sub LabelB_DblClick ()
AddressBox = 1
Form10.Picture5.Visible = False
Call UpdateFormB
Form10.Show 1
End Sub
Sub LabelC_DblClick (Index As Integer)
Call UpdateFormC
Form4.Show 1
End Sub
Sub LabelD_DblClick (Index As Integer)
Call UpdateFormD
Form5.Show 1
End Sub
Sub LabelE_DblClick (Index As Integer)
Call UpdateFormE
Form6.Show 1
End Sub
Sub LabelF_DblClick (Index As Integer)
Call UpdateFormF
Form7.Show 1
End Sub
Sub LabelG_DblClick (Index As Integer)
Call UpdateFormG
Form8.Show 1
End Sub
Sub LabelH_DblClick (Index As Integer)
Call UpdateFormH
Form9.Show 1
End Sub
Sub LabelI_Click (Index As Integer)
AddressBox = 2
Form10.Picture5.Visible = True
Call UpdateFormI
Form10.Show 1
End Sub
Sub LabelJ_Click (Index As Integer)
AddressBox = 3
Form10.Picture5.Visible = True
Call UpdateFormJ
Form10.Show 1
End Sub
Sub MExit_Click ()
Unload Form1
Unload Form2
Unload Form3
Unload Form4
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Form10
End Sub
Sub MLoad_Click ()
MSP = Screen.MousePointer
Screen.MousePointer = 11
Open "SaveFile.Txt" For Random As #1 Len = Len(MainRec)
Get #1, , MainRec
Close #1
Call UpdateFormA
Call UpdateFormB
Call UpdateFormC
Call UpdateFormD
Call UpdateFormE
Call UpdateFormF
Call UpdateFormG
Call UpdateFormH
Call UpdateFormI
Call UpdateFormJ
Call UpdateLabelA
Call UpdateLabelB
Call UpdateLabelC
Call UpdateLabelD
Call UpdateLabelE
Call UpdateLabelF
Call UpdateLabelG
Call UpdateLabelH
Call UpdateLabelI
Call UpdateLabelJ
Call UpdateDate(1)
Call UpdateDate(2)
Screen.MousePointer = MSP
End Sub
Sub MPrint_Click ()
Msg$ = "Here is where you would add code to print" + Chr$(10) + Chr$(13)
Msg$ = Msg$ + "all the screens. The screens can be" + Chr$(10) + Chr$(13)
Msg$ = Msg$ + "captured with an API call 'BitBlt' and" + Chr$(10) + Chr$(13)
Msg$ = Msg$ + "added together as they are printed to" + Chr$(10) + Chr$(13)
Msg$ = Msg$ + "the printer."
MsgBox Msg$, 64, "Additional feature to be added."
End Sub
Sub MSave_Click ()
MSP = Screen.MousePointer
Screen.MousePointer = 11
Open "SaveFile.Txt" For Random As #1 Len = Len(MainRec)
Put #1, , MainRec
Close #1
Screen.MousePointer = MSP
End Sub